Task ( 298 pas de programme )

1 PRINT "TASK MAN":$=" I I        "
2 A=5*4:B=1:GOSUB 13
3 IF KEY="" THEN 3
4 FOR I=0 TO 150:IF KEY="/";A=A-2
5 GOSUB B*2+15
7 A=A+1:IF A>7*4 THEN 10
8 GOSUB 13:IF A<4*4 THEN 11
9 NEXT I:PRINT "TIME OVER":GOTO 11
10 PRINT:PRINT "CAST TASK":GOTO 1
11 PRINT:PRINT " I *-UUU";:GOSUB 14
12 PRINT:PRINT "GOOD KILL!":GOTO 2
13 PRINT CSR 0;$;CSR INT(A/4);"--UUU";:RETURN
14 FOR I=0 TO 50:NEXT I:RETURN
15 IF KEY<>"";A=A-2:B=1-B
16 RETURN
17 IF KEY="";A=A-2:B=1-B
18 RETURN